Tiger Disk 135/Tiger_Disk_135_20xx_Tiger-Crew-Disk_de_Side_A.d64/los angeles v.3

Commodore BASIC | 2023-02-26 | 9KB | 300 lines

5 goto 450
6 rem (w) by peter diehm
7 rem 1989
8 rem public domain
9 rem version iii
10 poke53280,0:poke53281,0:printchr$(158):printchr$(147)
12 printchr$(142)"":poke53280,14
15 print" sie stehen in kirchheim/teck"
26 print" vor ihrer wohnung und warten"
27 print" auf das taxi das sie bestellt haben"
28 print" es kommt an !"
29 print"[158] anweisung ":input a$
30 if a$="hilfe" then gosub 11000:goto 29
31 if a$="" then 29
32 if a$="steige ein" then 39
33 if a$="gehe in taxi" then 39
34 if a$="gehe zu taxi" then 37
35 print" wie bitte..."
36 goto 29
37 print" sie gehen zum taxi ."
38 goto 29
39 printchr$(147):print" sie steigen in das taxi."
40 print" der schwaebische fahrer fragt sie "
41 print" wohin sie wollen[160]? ":input a$
42 if a$="hilfe" then gosub 11000:goto 40
43 if a$="zum flughafen" then 60
44 if a$="flughafen" then 60
45 if a$="airport" then 60
46 if a$="nach l.a" then 53
47 if a$="la" then 53
48 print" wie bitte ..."
49 goto 40
53 print" l.a liegt in den usa.
54 [153]" sie befinden sich zurzeit in"
55 [153]" europa !":[137] 40
57 [153][199](147)
60 [153]" das taxi bringt sie zum "
61 [153]" flughafen ."
62 [153]"sys anweisung":[133] a$
63 [139] a$[178]"hilfe" [167] [141] 11000:[137] 62
64 [139] a$[178]"steige aus" [167] 69
65 [139] a$[178]"aussteigen" [167] 69
66 [139] a4[178]"gehe aus taxi" [167] 69
67 [153]" wie bitte ...":[137] 62
68 [153]"load":[153]" sie stehen vor dem hauptgebauede des
69 print" flughafen's ueber ihnen kreisen jumbo
70 [153]" jets in der warte schleife."
71 [153]"sys anweisung":[133] a$
72 [139] a$[178]"hilfe" [167] [141] 11000:[137] 71
73 [139] a$[178]"gehe hinein" [176]a$[178]"gehe in flughafen" [167] 80
74 [139] a$[178]"gehe zu flughafen" [167] 80
75 [153]" wie bitte ...":[137] 71
76 [153]"load":[153]" sie betreten mit grossen schritten
80 print" das gebauede. lauter laerm dringt von
81 [153]" allen richtungen auf sie ein .
82 print" vor einem ticketschalter machen sie ":print" halt.
83 [153]"sys anweisung":[133] a$
84 [139] a$[178]"hilfe" [167] [141] 11000:[137] 83
85 [139] a$[178]"gehe zu ticketschalter" [167] 93
86 [139] a$[178]"kaufe ticket" [176]a$[178]"kaufe" [167] 100
87 [153]" wie bitte ...":[137] 83
88 [153][199](147)
93 [153]" sie gehen zum ticketschalter ."
94 [153]"sys anweisung ":[133] a$
95 [139] a$[178]"hilfe" [167] [141] 11000:[137] 94
96 [139] a$[178]"besorge ticket" [176]a$[178]"kaufe ticket" [167] 100
97 [139] a$[178]"kaufe ticket nach l.a" [176]a$[178]"kaufe ticket nach los angeles" [167] 110
98 [153]" wie bitte ...":[141] 94
99 [153][199](158)
100 [153]" wohin fragt die frau am"
101 [153]" schalter":[133] a$
102 [139] a$[178]"hilfe" [167] [141] 11000:[137] 100
103 [139] a$[178]"nach l.a" [167] 110
104 [139] a$[178]"nach los angeles" [176] a$[178]"los angeles"[167] 110
105 [139] a$[178]"nach l a" [167] 110
106 [153]" wie bitte ...":[137] 100
107 [153][199](147)
110 [153]" tut mir leid alles"
111 [153]" ausgebucht ."
112 [153]" ein arabischer oil scheich"
113 [153]" hat das ganze flugzeug gemietet."
114 [153]
115 [153]" sie koennen aber einen flug"
116 [153]" nach berlin nehmen und von"
117 [153]" dort ein flugzeug nach "
118 [153]" l.a nehmen."
119 [153]" wollen sie diesen flug nehmen ":[133] a$
120 [139] a$[178]"ja" [167] 135
121 [139] a$[178]"nein" [167] 125
122 [153]" wie bitte ...":[137] 119
123 [153][199](147)
125 [153]" sie muessen diesen flug nehmen ."
126 [153]" sie muessen bis morgen in"
127 [153]" los angeles sein."
128 [137] 119
135 [153]" ok"
136 [153]" ihr name bitte"
137 [133]" name";k$
140 [139] k$[178]"      " [167] 141
141 [153]" das macht 323 $ herr "k$
142 [153]"sys anweisung":[133] a$
143 [139] a$[178]"hilfe" [167] [141] 11000:[137] 142
144 [139] a$[178]"bezahle ticket" [176]a$[178]"bezahle" [167] 155
145 [153]" wie bitte ...":[137] 142
146 [153][199](147)
155 [153]" zum glueck haben sie 1000 $"
156 [153]" bei sich .sie bezahlen ."
157 [153]" sie haben jetzt noch 677 $ ."
158 [153]" sie muessen jetzt zum flugsteig 2 ."
159 [153]"sys anweisung":[133] a$
160 [139] a$[178]"hilfe" [167] [141] 11000:[137] 159
161 [139] a$[178]"gehe zu flugsteig 2" [167] 175
162 [139] a$[178]"flugsteig 2" [167] 175
163 [153]" wie bitte ...":[137] 159
164 [153][199](147)
175 [153]" sie gehen zum flugsteig 2 und
176 print" stehen und vor dem flugzeug."
177 print"[158] anweisung ":input a$
178 if a$="hilfe" then gosub 11000:goto 177
179 if a$="gehe ins flugzeug" ora$="steige ein" then 189
180 print" wie bitte ..."
181 goto 177
189 print" sie gehen ueber die treppe in das
190 [153]" innere des jumbos er fliegt los."
191 [129] i[178]1 [164] 3000:[130]
193 [153]" berlin !"
194 [153]"sys anweisung :":[133] a$
195 [139] a$[178]"steige aus" [167] 200
196 [139] a$[178]"hilfe" [167] [141] 11000:[137] 194
197 [153]" wie bitte ...":[137] 194
198 [153]"load"
199 [143] software
200 [153]"load":[153]" der tag hat sich zu ende geneigt
201 print" und es wird nacht !"
202 print" sie stehen im flughafen gebauede ."
203 print"[158] anweisung " :input a$
204 if a$="gehe zu ticketschalter" ora$="kaufe ticket" then 215
205 if a$="gehe zu schalter" then 215
206 if a$="hilfe" then gosub 11000:goto 203
207 print" wie bitte ...":goto 203
215 print" sie gehen zum schalter ."
216 print"[158] anweisung ":input a$
217 if a$="kaufe ticket" then 225
218 if a$="kaufe ticket nach l.a" then 240
219 print" wie bitte ...":goto 216
220 printchr$(147)
225 print" und wohin":input g$
226 if g$="nach l.a" then 240
227 if g$="nach los angeles" then 240
228 print" wie bitte ...":goto 225
229 printchr$(158)
240 print" das macht 677$ !"
241 print"[158] anweisung" :input a$
242 if a$="hilfe" then gosub 11000:goto 241
243 if a$="bezahle mit geld" then 245
244 print" wie bitte ...":goto 241
245 printchr$(147)
260 print" sie bezahlen. sie haben nun ihr ganzes
261 [153]" geld ausgegeben. ihr flugzeug
262 print" wartet am flugsteig 8 auf sie."
263 print"[158] anweisung ":input a$
264 if a$="gehe zu flugsteig 8" then 270
265 if a$="hilfe" then gosub 11000:goto 263
266 print" wie bitte ...":goto 263
270 print" sie begeben sich nun zum flugsteig 8  "
271 print" und halten vor dem flugzeug ."
272 print"[158] anweisung":input a$
273 if a$="steige ein" then 285
274 if a$="gehe hinein" then 285
275 if a$="gehe ins flugzeug" then 285
276 if a$="hilfe" then gosub 11000:goto 272
277 print" wie bitte ...":goto 272
285 print" sie steigen ein und nehmen darin
286 [153]" platz das flugzeug startet.
288 for i=1 to 3000:next
290 printchr$(158)
291 print" die maschine landet in l.a ."
292 print"[158] anweisung :":input a$
293 if a$="steige aus" then 300
294 if a$="aussteigen" then 300
295 if a$="hilfe" then gosub 11000:goto 292
296 print" wie bitte ...":gosub 292
300 print" sie stehen im flughafengebauede ."
301 print" nun muessen sie zum hafen !"
302 print"[158] anweisung :":input a$
303 if a$="gehe aus flughafengebauede" then 320
304 if a$="gehe nach draussen " then 320
305 if a$="hilfe" then gosub 11000:goto 302
306 printchr$(31)" wie bitte ..."
307 goto 302
320 printchr$(5)"[147]":print" sie stehen vor dem taxi-stand
321 [153]" ein taxi haelt vor ihren fuessen der
322 print" fahrer oeffnet die tuer.
323 [153]"sys anweisung":[133] a$
324 [139] a$[178]"gehe zu taxi" [167] 340
325 [139] a$[178]"zu taxi" [167] 340
326 [139] a$[178]"hilfe" [167] [141] 11000:[137] 323
327 [153]" wie bitte ...":[137] 323
340 [153]" sie stehen vor dem taxi !"
341 [153]"sys anweisung ":[133] a$
342 [139] a$[178]"steige ein" [167] 355
343 [139] a$[178]"steige ins taxi" [167] 355
344 [139] a$[178]"hilfe" [167] [141] 11000:[137] 341
345 [153]" wie bitte ...":[137] 341
355 [153]" sie steigen ein und schliessen die
356 print" tuer der taxifahrer fragt wohin"
357 print" die fahrt gehen soll ";:input a$
358 if a$="zum hafen" then 365
359 if a$="hafen" then 365
360 print" wie bitte ..."
362 goto 356
365 print" das taxi bringt sie zum hafen ."
366 print"[158] anweisung ":input a$
367 if a$="steige aus" then 380
368 if a$="aussteigen" then 380
369 if a$="hilfe" then gosub 11000:goto 366
370 print" wie bitte ...":goto 366
380 print" sie steigen aus ."
381 print" sie sehen das schiff"
382 print" das auf ihren bild abgebildet ist !"
383 print"[158] anweisung ":input a$
384 if a$="gehe zu schiff" then 395
385 if a$="schiff" then 395
386 if a$="hilfe" then gosub 11000:goto 383
387 print" wie bitte ...":goto 383
395 print" sie stehen vor einem grossem schiff ."
396 print"[158] anweisung ":input a$
397 if a$="gehe an board" then 405
398 if a$="steige ein" then 405
399 if a$="gehe auf schiff" then 405
400 if a$="hilfe" then gosub 11000:goto 396
401 goto 396
405 print" sie gehen an board das schiff legt
406 [153]" ab richtung sueden in die sonne.
407 print
408 for i=1 to 3000:next
409 print"":poke 53281,6
410 print"                                       "
412 print"                                       "
413 print"                                       "
414 print"                                       "
415 print"                                       "
416 print"                                       "
417 print"                                       "
418 print" [158]                                      "
419 print" [158]                                      "
420 print" [158]                                      "
421 print" [158]                                      "
422 print" das spiel ist hiermit zu ende  ":printchr$(5)
423 print" ich gratuliere zu ihrem erfolg "
424 print" und hoffe das es ihnen spass bereitet"
426 print" hat !!!"
427 print" bis zum naechstenmal !"
428 for i=1 to 3500:next
429 printchr$(158)"[147]"
430 print" wollen sie nocheinmal  (j/n)":input g$
431 if g$="" then 430
432 if g$="ja" org$="j" then run
433 if g$="nein" org$="n" then 10000
434 print"[158] entweder ja oder nein !"
435 goto 430
436 rem peter diehm
437 rem praesentiert
450 poke 53280,0:poke53281,0:printchr$(158):printchr$(147):print
451 print"                                       "
452 print"            los angeles v.3":printspc(9)"[154]*********************[158]
453 [153]"                                        "
454 [153]"           ein text adventure"
455 [153]"                cont  von          "
456 [153]"sys              peter diehm
457 print"                                      "
458 print"         freesoft adventure 1989
461 [129] i[178]1 [164] 3500:[130]
462 [153][199](158):[153]"load"
463 [153]" pospospospospos contget los angelessys"
464 [153]"  aufgabe des spielers ist escont"
465 [153]"  von kirchheimteck nach l.a."
466 [153]"  zu gelangen dortsys liegt im hafen"
467 [153]"  ein traumschiff welches mit ihm zu
468 print"  einer weltreise auf bricht  !!!"
469 print"  mit dem kommando hilfe koennen sie
470 [153]"  alle kommandos die sie benutzen
471 print"  koennen aufrufen !. viel spass !"
472 print
473 printspc(30)"-taste-"
474 get a$:ifa$="" then 474
477 goto 10
10000 printchr$(158)"good bye"
10010 sys 64738
11000 poke 53280,14:printchr$(5)
11111 print"[158] [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
11112 print" [180]                                    [170]"
11113 print" [180] steige ein  steige aus  bezahle    [170]"
11114 print" [180]                                    [170]"
11115 print" [180] kaufe  gehe zu   gehe in  zum ...  [170]"
11116 print"[158] [165]                                    [170]"
11117 print" [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
11118 for i=1 to 400:next
11119 return